home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MATH
/
NRPAS13
/
FPOLY.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-29
|
297b
|
14 lines
PROCEDURE fpoly(x: real; VAR p: glnparray; np: integer);
(* Programs using routine FPOLY must define the type
TYPE
glnparray = ARRAY [1..np] OF real;
in the main routine. *)
VAR
j: integer;
BEGIN
p[1] := 1.0;
FOR j := 2 TO np DO BEGIN
p[j] := p[j-1]*x
END
END;